#!/usr/bin/perl
use strict;
use modules::encode;

package osopers;

sub osopers {
    my ($dbh,$remote,$input,$osnum) = @_;
    my $sth = $dbh->prepare("SELECT nick,host,server FROM ninfo WHERE oper = '1';");
    $sth->execute;
    print $remote "$osnum O $$input[0] :\026Listing IRC Operators online..\n";
    print $remote "$osnum O $$input[0] :Nick       Host           Server\n";
    while (my @tmp = $sth->fetchrow_array) {
	print $remote "$osnum O $$input[0] :$tmp[0]  $tmp[1]  $tmp[2]\n";
    }
    print $remote "$osnum O $$input[0] :------------------------------------\n";

}
1;



